  BC,(WKBC')
  LD  A,B
  ADD A,40H
  LD  B,A
  LD  (WKBC'),BC
  LD  A,(\\CP\\)
  ADD A,40H
  LD  (\\CP\\),A

  FI
  LD  (WKBC),BC
  FI
  EXX

  POP HL
  INC HL
  POP DE
  POP BC
  DEC BC
  IF  BC<>0 JP REPLOOP0
  RET

KAKE ; HL*DE  =HL
  LD  A,16
  LD  BC,HL
  LD  HL,0

ML1:
  ADD HL,HL
  EX DE,HL
  ADD HL,HL
  EX DE,HL
  JR NC,ML2
  ADD HL,BC
ML2:
  DEC A
  JR  NZ,ML1
  RET

WARI ; HL/DE = DE   = HL
  LD A,16
  LD  BC,DE
  EX  DE,HL
  LD  HL,0

DV1:
  ADD HL,HL
  EX  DE,HL
  ADD HL,HL
  EX  DE,HL
  JR  NC,DV2
  INC HL
DV2:
  SUB HL,BC
  JR  NC,DV3
  ADD HL,BC
  JR  DV4
DV3:
  INC DE
DV4:
  DEC A
  JR  NZ,DV1
  RET

MAINRAM DW      0
G_RAM_AD        DW      0
WIDTH   DW      0
;WKBC    DW      0
WKBC'   DW      0
;---------------------
  ; NORMAL      PUT
;---------------------
; < BC=G RAM ADDRESS
; < D=WIDTH X
; < E=WIDTH Y(1-200)
; < HL=DATA ADDRESS
NORMALPUT
  LD  (WKDE),DE

  LD  A,120
  LD  (@@CP),A

  LD A,3
HLP00:
  EX  AF,AF'
  LD  A